(occur): Add mouse-face property to each line.

diff --git a/lisp/replace.el b/lisp/replace.el
index 24e77960ccfefd0f9994428173dd11ef7cc5269d..cdc483667fd697c1f3465adf3f94b2a13536ea8c 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -379,6 +379,13 @@ It serves as a menu to find any of the occurrences in this buffer.
                  (if (null tag)
                      (setq tag (format "%3d" this-linenum)))
                  (insert tag ?:)
+                 (put-text-property (save-excursion
+                                      (beginning-of-line)
+                                      (point))
+                                    (save-excursion
+                                      (end-of-line)
+                                      (point))
+                                    'mouse-face 'highlight)
                  (setq tag nil)
                  (forward-line 1)
                  (setq this-linenum (1+ this-linenum))))